home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 10 / 010.d81 / box puzzles (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  165 lines
  1. 1 gosub60000
  2. 10 rem ***********************
  3. 15 rem *                     *
  4. 20 rem *     box puzzles     *
  5. 25 rem *                     *
  6. 30 rem *   by  sandy smith   *
  7. 35 rem *                     *
  8. 40 rem *  18 september 1983  *
  9. 45 rem *                     *
  10. 50 rem *   a revision of     *
  11. 55 rem *  'from games' in    *
  12. 60 rem * softdisk magazette  *
  13. 65 rem *                     *
  14. 66 rem * translated for the  *
  15. 67 rem *    commodore 64     *
  16. 68 rem *  by donna k. woody  *
  17. 69 rem *                     *
  18. 70 rem ***********************
  19. 80 poke53280,1:poke53281,0:print"[158]":poke53272,23:printchr$(8)
  20. 81 poke783,peek(783)and254:s=65520
  21. 82 v$="                                       "
  22. 90 goto210
  23. 99 :
  24. 100 rem *** subroutines
  25. 101 :
  26. 110 h=20-len(a$)/2:poke781,v:poke782,h:syss:printa$:return
  27. 120 poke781,23:poke782,5:syss:print"[208]ress <[211][208][193][195][197] [194][193][210]> to continue";
  28. 121 poke198,0:wait198,1:geta$:return
  29. 130 print"[147]":a$="[208][213][218][218][204][197][211] [194][217] [212][200][197] [194][207][216][198][213][204]":v=1:gosub110:print:print:return
  30. 140 print"         ";:forj=1to21:print"-";:nextj:print:forj=1to10:printtab(9);"!";tab(29);"!"
  31. 141 next:print"         ";:forj=1to21:print"-";:nextj:print:return
  32. 199 :
  33. 200 rem *** intro
  34. 201 :
  35. 210 print"[147]":gosub140:print"[208][213][218][218][204][197][211] [194][217] [212][200][197]"
  36. 211 print"[194][207][216][198][213][204]..."
  37. 220 print"[196]umped together":print"by"
  38. 221 print"[211]andy [211]mith"
  39. 222 print"[212]ranslated for the [195]ommodore"
  40. 223 print"by [196]onna [203]. [215]oody":gosub120
  41. 230 print"[147]":v=1:a$="[212]he puzzles came":gosub110
  42. 231 v=v+1:a$="from page 165 of the":gosub110
  43. 232 v=v+1:a$="1983 edition of":gosub110
  44. 233 v=v+1:a$="the [207]ld [198]armer's [193]lmanac.":gosub110
  45. 240 v=v+1:a$="[212]hey were written by":gosub110
  46. 241 v=v+1:a$="[212]homas [197]. [207]etzel.":gosub110
  47. 250 poke781,14:poke782,3:syss:print"[193]ll you need to do is figure out":print
  48. 251 print"   what the information in each box":print
  49. 252 print"   says.  [199]ood luck!":gosub120
  50. 299 :
  51. 300 rem *** instructions
  52. 301 :
  53. 310 gosub130:a$="-- [206][207][212][197] --":v=3:gosub110
  54. 320 print"[198]ormulate your answers in your head,"
  55. 330 print"then press the ";chr$(34);"[193]";chr$(34);" key for the answer."
  56. 350 print"[206]ext, you will be asked if you got it"
  57. 360 print"correct.  [194]e honest."
  58. 370 print"   [212]ype in an ";chr$(34);"[211]";chr$(34);" if you wish to skip a"
  59. 371 print"puzzle or press ";chr$(34);"[209]";chr$(34);" to quit before the"
  60. 380 print"quiz is over.":gosub120
  61. 999 :
  62. 1000 rem *** initialization
  63. 1010 nq=21:diman$(nq)
  64. 1015 fori=1tonq:readan$(i)
  65. 1016 an$(i)=an$(i)+v$:an$(i)=left$(an$(i),38):nexti
  66. 1019 :
  67. 1020 rem *** the quiz
  68. 1021 :
  69. 1030 i=0:rt=0:wr=0:sk=0:t=0
  70. 1040 i=i+1:ifi>nqthen3010
  71. 1050 gosub130:gosub140:poke781,5:poke782,10:syss:printi;"[157]."
  72. 1055 ifi>13then1065
  73. 1060 onigoto1110,1120,1130,1140,1150,1160,1170,1180,1190,1200,1210,1220,1230
  74. 1065 oni-13goto1240,1250,1260,1270,1280,1290,1300,1310
  75. 1110 v=9:a$="man":gosub110:v=10:a$="board":gosub110:goto2010
  76. 1120 v=9:a$="stand":gosub110:v=10:a$="[201]":gosub110:goto2010
  77. 1130 v=9:a$="[210]/[197]/[193]/[196]/[201]/[206]/[199]":gosub110:goto2010
  78. 1140 v=9:a$="[204][197]     ":gosub110:v=10:a$="[214][197][204]":gosub110:goto2010
  79. 1150 v=7:a$="ground":gosub110:a$="feet"
  80. 1152 fork=1to6:v=v+1:gosub110:next:goto2010
  81. 1160 v=9:a$="wear":gosub110:v=10:a$="long":gosub110:goto2010
  82. 1170 v=7:a$="[210]  ":gosub110:v=8:a$="[210][207][193][196][211]":gosub110:v=9:a$="[193]  ":gosub110
  83. 1175 v=10:a$="[196]  ":gosub110:v=11:a$="[211]  ":gosub110:goto2010
  84. 1180 v=7:a$="[212]":gosub110:v=8:a$="[207]":gosub110:v=9:a$="[215]":gosub110
  85. 1185 v=10:a$="[206]":gosub110:goto2010
  86. 1190 v=7:a$="[195][217][195][204][197]":fork=1to3:v=v+1:gosub110:nextk:goto2010
  87. 1200 v=8:a$="0":gosub110:v=9:a$="[205].[196].":gosub110:v=10:a$="[208][200].[196]":gosub110
  88. 1205 v=11:a$="[194].[211].":gosub110:goto2010
  89. 1210 v=9:a$="[203][206][197][197]":gosub110:v=10:a$="[204][201][199][200][212][211]":gosub110:goto2010
  90. 1220 v=5:a$="[195][200][193][201][210]":gosub110:goto2010
  91. 1230 v=9:a$="[196][201][195][197]":fork=1to2:v=v+1:gosub110:nextk:goto2010
  92. 1240 v=7:a$="[212]":gosub110:v=v+1:a$="[207]":gosub110:v=v+1:a$="[213]":gosub110
  93. 1245 v=v+1:a$="[195]":gosub110:v=v+1:a$="[200]":gosub110:goto2010
  94. 1250 v=9:a$="[205][201][206][196]":gosub110:v=v+1:a$="[205][193][212][212][197][210]":gosub110:goto2010
  95. 1260 v=9:a$="[200][197]'[211]/[200][201][205][211][197][204][198]":gosub110:goto2010
  96. 1270 v=9:a$="[197][195][206][193][204][199]":gosub110:goto2010
  97. 1280 v=9:a$="[196][197][193][212][200]/[204][201][198][197]":gosub110:goto2010
  98. 1290 v=7:a$="[199].[201].":gosub110:v=v+1:a$="[195][195][195][195][195][195]":gosub110:v=v+1:a$="[195][195][195][195]":gosub110
  99. 1295 v=v+1:a$="[195][195]":gosub110:goto2010
  100. 1300 v=9:a$="[164][164][208][210][207][199][210][193][205]":gosub110:goto2010
  101. 1310 v=6:a$=" [202]":gosub110:v=v+1:a$="[217][207][213]   [205][197]":gosub110:a$=" [213]":gosub110
  102. 1312 v=v+1:a$=" [211]":gosub110
  103. 1315 v=v+1:a$=" [212]":gosub110
  104. 1999 :
  105. 2000 rem *** get response
  106. 2001 :
  107. 2010 poke781,18:poke782,1:syss:print"[210]emember, just think of the answer.":print
  108. 2020 printtab(14)"[193] = [193]nswer":printtab(14)"[211] = [211]kip"
  109. 2025 printtab(14)"[209] = [209]uit"
  110. 2027 getr$:ifr$=""then2027
  111. 2030 ifr$="[209]"orr$="q"then3010
  112. 2040 ifr$="[211]"orr$="s"thensk=sk+1:goto1040
  113. 2050 ifr$<>"a"andr$<>"[193]"then2027
  114. 2060 print"[145][145][145][145][145][193][206][211][215][197][210]:[146]                              "
  115. 2065 printan$(i)
  116. 2066 print"                               "
  117. 2070 print"[196]id you get it right? (y/n)            ";
  118. 2072 print"                                "
  119. 2075 getr$:ifr$=""then2075
  120. 2080 ifr$="y"orr$="[217]"thenrt=rt+1:goto1040
  121. 2090 ifr$<>"n"andr$<>"[206]"then2075
  122. 2100 wr=wr+1:goto1040
  123. 2999 :
  124. 3000 rem *** score
  125. 3001 :
  126. 3010 gosub130:v=4:a$="[200]ere's your score":gosub110
  127. 3020 poke781,7:poke782,14:syss:print"[210]ight   ";:ifrt<10thenprint" ";
  128. 3030 printrt:printtab(14)"[215]rong   ";:ifwr<10thenprint"[160]";
  129. 3040 printwr:printtab(12)"[211]hipped   ";:ifsk<10thenprint"[160]";
  130. 3050 printsk:printtab(22)"---":printtab(14)"[212]otal   ";:t=rt+wr+sk:ift<10thenprint
  131. 3060 printt
  132. 3999 :
  133. 4000 rem *** quit now?
  134. 4001 :
  135. 4010 poke781,20:poke782,5:syss:print"[215]ant to do it again?[160](y/n) ";
  136. 4015 getr$:ifr$=""then4015
  137. 4016 ifr$="y"orr$="[217]"goto1030
  138. 4020 ifr$<>"n"andr$<>"[206]"thenpoke53280,rnd(1)*15:goto4015
  139. 4029 :
  140. 4030 goto 63000:rem   end
  141. 4999 :
  142. 5000 rem *** answer data
  143. 5001 :
  144. 5010 data"[205][193][206] [207][214][197][210][194][207][193][210][196]","[201] [213][206][196][197][210][211][212][193][206][196]","[210][197][193][196][201][206][199] [194][197][212][215][197][197][206] [212][200][197] [204][201][206][197][211]","[211][208][204][201][212] [204][197][214][197][204]"
  145. 5020 data"[211][201][216] [198][197][197][212] [213][206][196][197][210] [199][210][207][213][206][196]","[204][207][206][199] [213][206][196][197][210][215][197][193][210]","[195][210][207][211][211][210][207][193][196][211]","[196][207][215][206][212][207][215][206]"
  146. 5030 data"[212][210][201][195][217][195][204][197]","[212][200][210][197][197] [196][197][199][210][197][197][211] [194][197][204][207][215] [218][197][210][207]","[206][197][207][206] [204][201][199][200][212][211]","[200][201][199][200][160][195][200][193][201][210]"
  147. 5040 data"[208][193][210][193][196][201][211][197]","[212][207][213][195][200][196][207][215][206]","[205][201][206][196][160][207][214][197][210][160][205][193][212][212][197][210]","[200][197]'[211] [194][197][211][201][196][197] [200][201][205][211][197][204][198]"
  148. 5050 data"[194][193][195][203][215][193][210][196][211] [199][204][193][206][195][197]","[204][201][198][197] [193][198][212][197][210] [196][197][193][212][200]","[199].[201]. [207][214][197][210][211][197][193][211]","[211][208][193][195][197] [208][210][207][199][210][193][205]"
  149. 5060 data"[202][213][211][212] [194][197][212][215][197][197][206] [217][207][213] [193][206][196] [205][197]"
  150. 60000 t$="